|
409
|
How can I display a different caption in the label area
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.Style = 2
oComboBox.IntegralHeight = .t.
oComboBox.HeaderVisible = .f.
oComboBox.SingleEdit = .t.
oComboBox.SearchColumnIndex = -1
oComboBox.AdjustSearchColumn = .f.
' oComboBox.Columns.Add("Language").Def(0) = .t.
var_Column = oComboBox.Columns.Add("Language")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(0) = True"
var_Items = oComboBox.Items
var_Items.AddItem("English")
var_Items.AddItem("Hebrew")
var_Items.AddItem("Spanish")
oComboBox.LabelText = " <b>custom</b> text "
oComboBox.EndUpdate()
|
|
160
|
How can I display a custom size picture to a cell or item
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.DefaultItemHeight = 48
oComboBox.Columns.Add("C1")
var_Items = oComboBox.Items
' var_Items.CellPicture(var_Items.AddItem("Text"),0) = oComboBox.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellPicture(AddItem(`Text`),0) = Me.ExecuteTemplate(`loadpicture(``c:\exontrol\images\zipdisk.gif``)`)"
|
|
210
|
How can I display a computed column and highlight some values that are negative or less than a value
Dim oComboBox as P
Dim var_Column as local
Dim var_ConditionalFormat as P
Dim var_Items as P
Dim var_Items1 as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("A")
oComboBox.Columns.Add("B")
' oComboBox.Columns.Add("(A+B)*1.19").ComputedField = "(%0 + %1) * 1.19"
var_Column = oComboBox.Columns.Add("(A+B)*1.19")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.ComputedField = `(%0 + %1) * 1.19`"
var_Items = oComboBox.Items
' var_Items.CellCaption(var_Items.AddItem(1),1) = 2
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(1),1) = 2"
var_Items1 = oComboBox.Items
' var_Items1.CellCaption(var_Items1.AddItem(10),1) = 20
oComboBox.TemplateDef = "dim var_Items1"
oComboBox.TemplateDef = var_Items1
oComboBox.Template = "var_Items1.CellCaption(AddItem(10),1) = 20"
var_ConditionalFormat = oComboBox.ConditionalFormats.Add("%2 > 10")
var_ConditionalFormat.Bold = .t.
var_ConditionalFormat.ForeColor = 255
var_ConditionalFormat.ApplyTo = 2 '2 +
|
|
276
|
How can I display a button inside the item or cell
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("C1")
oComboBox.Columns.Add("C2")
var_Items = oComboBox.Items
h = var_Items.AddItem("Cell 1")
' var_Items.CellCaption(h,1) = " Button 1 "
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = ` Button 1 `"
' var_Items.CellHAlignment(h,1) = 2
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellHAlignment(h,1) = 2"
' var_Items.CellHasButton(h,1) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellHasButton(h,1) = True"
h = var_Items.AddItem("Cell 2")
' var_Items.CellCaption(h,1) = " Button 2 "
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = ` Button 2 `"
' var_Items.CellHAlignment(h,1) = 1
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellHAlignment(h,1) = 1"
' var_Items.CellHasButton(h,1) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellHasButton(h,1) = True"
|
|
203
|
How can I customize the items being displayed in the drop down filter window
Dim oComboBox as P
Dim var_Column as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Column = oComboBox.Columns.Add("Custom Filter")
var_Column.DisplayFilterButton = .t.
var_Column.DisplayFilterPattern = .f.
var_Column.CustomFilter = "Excel Spreadsheets (*.xls )||*.xls|||Word Documents||*.doc|||Powerpoint Presentations||*.pps|||Text Documents (*.log,*.txt)||*.txt|*.log"
var_Column.FilterType = 3
var_Column.Filter = "*.xls"
oComboBox.Items.AddItem("excel.xls")
oComboBox.Items.AddItem("word.doc")
oComboBox.Items.AddItem("pp.pps")
oComboBox.Items.AddItem("text.txt")
oComboBox.ApplyFilter()
|
|
549
|
How can I create a new ADO recordset
Dim oComboBox as P
Dim rs as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
rs = OLE.Create("ADODB.Recordset")
rs.Fields.Append("A",8)
rs.Fields.Append("B",8)
rs.Open()
rs.AddNew()
rs.Fields.Item("A").Value = "Item A.1"
rs.Fields.Item("B").Value = "Item B.1"
rs.Update()
rs.AddNew()
rs.Fields.Item("A").Value = "Item A.2"
rs.Fields.Item("B").Value = "Item B.2"
rs.Update()
oComboBox.DataSource = rs
oComboBox.Value = "Item A.1"
oComboBox.EndUpdate()
|
|
372
|
How can I convert the expression to a string so I can look into the date string expression for month's name
Dim oComboBox as P
Dim var_Column as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Number")
' oComboBox.Columns.Add("Str").ComputedField = "str(%0) + ' AA'"
var_Column = oComboBox.Columns.Add("Str")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.ComputedField = `str(%0) + ' AA'`"
var_Items = oComboBox.Items
var_Items.AddItem("-1.98")
var_Items.AddItem("0.99")
var_Items.AddItem("1.23")
var_Items.AddItem("2.34")
|
|
427
|
How can I collapse all items
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
oComboBox.Columns.Add("Items")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
h = var_Items.AddItem("Root 2")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(0) = .f.
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ExpandItem(0) = False"
oComboBox.EndUpdate()
|
|
340
|
How can I close the drop down window when user double clicks it
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.CloseOnDblClk = .t.
oComboBox.LinesAtRoot = 1
oComboBox.TreeColumnIndex = 1
oComboBox.Columns.Add("Column 1")
oComboBox.Columns.Add("Column 2")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1.1")
' var_Items.CellCaption(h,1) = "Root 1.2"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `Root 1.2`"
' var_Items.CellCaption(var_Items.InsertItem(h,,"Child 1.1"),1) = "Child 1.2"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(InsertItem(h,,`Child 1.1`),1) = `Child 1.2`"
' var_Items.CellCaption(var_Items.InsertItem(h,,"Child 2.1"),1) = "Child 2.2"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(InsertItem(h,,`Child 2.1`),1) = `Child 2.2`"
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.AddItem("Root 2.1")
' var_Items.CellCaption(h,1) = "Root 2.2"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `Root 2.2`"
' var_Items.CellCaption(var_Items.InsertItem(h,,"Child 1.1"),1) = "Child 1.2"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(InsertItem(h,,`Child 1.1`),1) = `Child 1.2`"
|
|
384
|
How can I check the hour part only so I know it was afternoon
Dim oComboBox as P
Dim var_Column as local
Dim var_ConditionalFormat as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.ConditionalFormats.Add("hour(%0)>=12").Bold = .t.
var_ConditionalFormat = oComboBox.ConditionalFormats.Add("hour(%0)>=12")
oComboBox.TemplateDef = "dim var_ConditionalFormat"
oComboBox.TemplateDef = var_ConditionalFormat
oComboBox.Template = "var_ConditionalFormat.Bold = True"
oComboBox.Columns.Add("Date")
' oComboBox.Columns.Add("Hour").ComputedField = "hour(%0)"
var_Column = oComboBox.Columns.Add("Hour")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.ComputedField = `hour(%0)`"
var_Items = oComboBox.Items
var_Items.AddItem({01/11/2001 10:00:00})
var_Items.AddItem({02/22/2002 11:00:00})
var_Items.AddItem({03/13/2003 12:00:00})
var_Items.AddItem({04/14/2004 13:00:00})
|
|
4
|
How can I change/rename the column's name
Dim oComboBox as P
Dim var_Column as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Columns.Add("ColumnName").Caption = "NewName"
var_Column = oComboBox.Columns.Add("ColumnName")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Caption = `NewName`"
|
|
134
|
How can I change the width of the columns being displayed in the sort bar
Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.SortBarVisible = .t.
oComboBox.SortBarColumnWidth = 48
' oComboBox.Columns.Add("C1").SortOrder = 1
var_Column = oComboBox.Columns.Add("C1")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.SortOrder = 1"
' oComboBox.Columns.Add("C2").SortOrder = 2
var_Column1 = oComboBox.Columns.Add("C2")
oComboBox.TemplateDef = "dim var_Column1"
oComboBox.TemplateDef = var_Column1
oComboBox.Template = "var_Column1.SortOrder = 2"
|
|
510
|
How can I change the visual appearance of the filter bar's close button (solid)
Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"
var_Column1 = oComboBox.Columns.Add("Pos")
var_Column1.AllowSizing = .f.
var_Column1.AllowSort = .f.
var_Column1.Width = 32
var_Column1.FormatColumn = "1 apos ``"
var_Column1.Position = 0
var_Items = oComboBox.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
oComboBox.FilterBarPromptVisible = 1
oComboBox.Template = "Background(1) = 255" // oComboBox.Background(1) = 255
oComboBox.EndUpdate()
|
|
511
|
How can I change the visual appearance of the filter bar's close button (EBN)
Dim oComboBox as P
Dim var_Appearance as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
var_Appearance = oComboBox.VisualAppearance
var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJjyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKmSZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OROicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJXAiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaKJDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEAkjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRSMRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhAQHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ")
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"
var_Column1 = oComboBox.Columns.Add("Pos")
var_Column1.AllowSizing = .f.
var_Column1.AllowSort = .f.
var_Column1.Width = 32
var_Column1.FormatColumn = "1 apos ``"
var_Column1.Position = 0
var_Items = oComboBox.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
oComboBox.FilterBarPromptVisible = 257 'exFilterBarToggle + exFilterBarPromptVisible
oComboBox.Template = "Background(1) = 16777216" // oComboBox.Background(1) = 16777216
oComboBox.EndUpdate()
|
|
131
|
How can I change the visual appearance of the control's sort bar, using EBN files
Dim oComboBox as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oComboBox.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oComboBox.SortBarVisible = .t.
oComboBox.BackColorSortBar = 16777216
oComboBox.BackColorSortBarCaption = 33554432
oComboBox.Appearance = 0
|
|
499
|
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 3)
Dim h as N
Dim oComboBox as P
Dim var_Appearance as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
var_Appearance = oComboBox.VisualAppearance
var_Appearance.Add(3,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5JlgXIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIRgwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOMINCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=")
var_Appearance.Add(1,"CP:3 -2 -2 2 2")
var_Appearance.Add(4,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCEeBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchOFSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQOJtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=")
var_Appearance.Add(2,"CP:4 -2 -2 2 2")
oComboBox.LinesAtRoot = 1
oComboBox.HasButtons = 4
oComboBox.Template = "HasButtonsCustom(0) = 16777216" // oComboBox.HasButtonsCustom(.f.) = 16777216
oComboBox.Template = "HasButtonsCustom(1) = 33554432" // oComboBox.HasButtonsCustom(.t.) = 33554432
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.AddItem("Root 2")
var_Items.InsertItem(h,,"Child")
oComboBox.EndUpdate()
|
|
498
|
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 2)
Dim h as N
Dim oComboBox as P
Dim var_Appearance as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
var_Appearance = oComboBox.VisualAppearance
var_Appearance.Add(1,"XP:TREEVIEW 2 1")
var_Appearance.Add(2,"XP:TREEVIEW 2 2")
oComboBox.Template = "Background(180) = 16777216" // oComboBox.Background(180) = 16777216
oComboBox.Template = "Background(181) = 33554432" // oComboBox.Background(181) = 33554432
oComboBox.LinesAtRoot = -1
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.AddItem("Root 2")
var_Items.InsertItem(h,,"Child")
oComboBox.EndUpdate()
|
|
496
|
How can I change the visual appearance of the +/- buttons (method 1)
Dim h as N
Dim oComboBox as P
Dim var_Appearance as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
var_Appearance = oComboBox.VisualAppearance
var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5JlgXIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIRgwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOMINCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=")
var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCEeBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchOFSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQOJtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=")
oComboBox.LinesAtRoot = -1
oComboBox.Template = "Background(180) = 16777216" // oComboBox.Background(180) = 16777216
oComboBox.Template = "Background(181) = 33554432" // oComboBox.Background(181) = 33554432
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.AddItem("Root 2")
var_Items.InsertItem(h,,"Child")
oComboBox.EndUpdate()
|
|
275
|
How can I change the state of a radio button
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.MarkSearchColumn = .f.
oComboBox.SelBackColor = 8454143
oComboBox.SelForeColor = 0
oComboBox.Columns.Add("C1")
oComboBox.Columns.Add("C2")
oComboBox.Columns.Add("C3")
var_Items = oComboBox.Items
h = var_Items.AddItem("Cell 1")
' var_Items.CellCaption(h,1) = "Radio 1"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `Radio 1`"
' var_Items.CellHasRadioButton(h,1) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellHasRadioButton(h,1) = True"
' var_Items.CellRadioGroup(h,1) = 1234
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellRadioGroup(h,1) = 1234"
' var_Items.CellCaption(h,2) = "Radio 2"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,2) = `Radio 2`"
' var_Items.CellHasRadioButton(h,2) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellHasRadioButton(h,2) = True"
' var_Items.CellRadioGroup(h,2) = 1234
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellRadioGroup(h,2) = 1234"
' var_Items.CellState(h,1) = 1
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellState(h,1) = 1"
|
|
273
|
How can I change the state of a checkbox
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("C1")
oComboBox.Columns.Add("C2")
var_Items = oComboBox.Items
h = var_Items.AddItem("Cell 1")
' var_Items.CellCaption(h,1) = "Check Box"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `Check Box`"
' var_Items.CellHasCheckBox(h,1) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellHasCheckBox(h,1) = True"
' var_Items.CellState(h,1) = 1
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellState(h,1) = 1"
|
|
132
|
How can I change the sort bar's foreground color
Dim oComboBox as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.SortBarVisible = .t.
oComboBox.ForeColorSortBar = 255
|
|
130
|
How can I change the sort bar's background color
Dim oComboBox as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.SortBarVisible = .t.
oComboBox.BackColorSortBar = 255
oComboBox.BackColorSortBarCaption = 128
|
|
289
|
How can I change the size ( width, height ) of the picture
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
' var_Items.CellPicture(h,0) = oComboBox.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellPicture(h,0) = Me.ExecuteTemplate(`loadpicture(``c:\exontrol\images\zipdisk.gif``)`)"
' var_Items.CellPictureWidth(h,0) = 24
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellPictureWidth(h,0) = 24"
' var_Items.CellPictureHeight(h,0) = 24
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellPictureHeight(h,0) = 24"
' var_Items.ItemHeight(h) = 32
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ItemHeight(h) = 32"
h = var_Items.AddItem("Root 2")
' var_Items.CellPicture(h,0) = oComboBox.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellPicture(h,0) = Me.ExecuteTemplate(`loadpicture(``c:\exontrol\images\zipdisk.gif``)`)"
' var_Items.ItemHeight(h) = 48
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ItemHeight(h) = 48"
|
|
32
|
How can I change the position of the column
Dim oComboBox as P
Dim var_Column as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Column 1")
' oComboBox.Columns.Add("Column 2").Position = 0
var_Column = oComboBox.Columns.Add("Column 2")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Position = 0"
|
|
298
|
How can I change the position of an item
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
' var_Items.ItemPosition(var_Items.AddItem("Item 3")) = 0
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ItemPosition(AddItem(`Item 3`)) = 0"
|
|
202
|
How can I change the order or the position of the columns in the sort bar
Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.SortBarVisible = .t.
oComboBox.SortBarColumnWidth = 48
' oComboBox.Columns.Add("C1").SortOrder = 1
var_Column = oComboBox.Columns.Add("C1")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.SortOrder = 1"
' oComboBox.Columns.Add("C2").SortOrder = 2
var_Column1 = oComboBox.Columns.Add("C2")
oComboBox.TemplateDef = "dim var_Column1"
oComboBox.TemplateDef = var_Column1
oComboBox.Template = "var_Column1.SortOrder = 2"
oComboBox.Columns.Item("C2").SortPosition = 0
|
|
48
|
How can I change the name of the week days in the drop down calendar window, being displayed when I filter items between dates
Dim oComboBox as P
Dim var_Column as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Column = oComboBox.Columns.Add("Column")
var_Column.DisplayFilterButton = .t.
var_Column.DisplayFilterDate = .t.
oComboBox.Template = "Description(18) = `Du Lu Ma Mi Jo Vi Si`" // oComboBox.Description(18) = "Du Lu Ma Mi Jo Vi Si"
oComboBox.ApplyFilter()
|
|
47
|
How can I change the name of the months in the drop down calendar window, being displayed when I filter items between dates
Dim oComboBox as P
Dim var_Column as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Column = oComboBox.Columns.Add("Column")
var_Column.DisplayFilterButton = .t.
var_Column.DisplayFilterDate = .t.
oComboBox.Template = "Description(17) = `Janvier F vrier Mars Avril Mai Juin Juillet Ao t Septembre Octobre Novembre D cembre`" // oComboBox.Description(17) = "Janvier F vrier Mars Avril Mai Juin Juillet Ao t Septembre Octobre Novembre D cembre"
oComboBox.ApplyFilter()
|
|
133
|
How can I change the height of the sort bar's
Dim oComboBox as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.SortBarVisible = .t.
oComboBox.SortBarHeight = 48
|
|
252
|
How can I change the height for all items
Dim oComboBox as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.DefaultItemHeight = 32
oComboBox.Columns.Add("Column")
oComboBox.Items.AddItem("One")
oComboBox.Items.AddItem("Two")
|
|
124
|
How can I change the header's background color, when multiple levels are displayed
Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as local
Dim var_Column2 as local
Dim var_Column3 as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BackColorLevelHeader = 250
' oComboBox.Columns.Add("S").Width = 32
var_Column = oComboBox.Columns.Add("S")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Width = 32"
' oComboBox.Columns.Add("Level 1").LevelKey = 1
var_Column1 = oComboBox.Columns.Add("Level 1")
oComboBox.TemplateDef = "dim var_Column1"
oComboBox.TemplateDef = var_Column1
oComboBox.Template = "var_Column1.LevelKey = 1"
' oComboBox.Columns.Add("Level 2").LevelKey = 1
var_Column2 = oComboBox.Columns.Add("Level 2")
oComboBox.TemplateDef = "dim var_Column2"
oComboBox.TemplateDef = var_Column2
oComboBox.Template = "var_Column2.LevelKey = 1"
' oComboBox.Columns.Add("Level 3").LevelKey = 1
var_Column3 = oComboBox.Columns.Add("Level 3")
oComboBox.TemplateDef = "dim var_Column3"
oComboBox.TemplateDef = var_Column3
oComboBox.Template = "var_Column3.LevelKey = 1"
|
|
344
|
How can I change the foreground color for edit controls
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.ForeColorEdit = 255
oComboBox.IntegralHeight = .t.
oComboBox.LinesAtRoot = 1
oComboBox.TreeColumnIndex = 1
oComboBox.Columns.Add("Column 1")
oComboBox.Columns.Add("Column 2")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1.1")
' var_Items.CellCaption(h,1) = "Root 1.2"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `Root 1.2`"
' var_Items.CellCaption(var_Items.InsertItem(h,,"Child 1.1"),1) = "Child 1.2"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(InsertItem(h,,`Child 1.1`),1) = `Child 1.2`"
' var_Items.CellCaption(var_Items.InsertItem(h,,"Child 2.1"),1) = "Child 2.2"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(InsertItem(h,,`Child 2.1`),1) = `Child 2.2`"
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.AddItem("Root 2.1")
' var_Items.CellCaption(h,1) = "Root 2.2"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `Root 2.2`"
' var_Items.CellCaption(var_Items.InsertItem(h,,"Child 1.1"),1) = "Child 1.2"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(InsertItem(h,,`Child 1.1`),1) = `Child 1.2`"
oComboBox.Template = "Select(0) = `Root 1.1`" // oComboBox.Select(0) = "Root 1.1"
|
|
215
|
How can I change the foreground color for all cells in the column
Dim oComboBox as P
Dim var_ConditionalFormat as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_ConditionalFormat = oComboBox.ConditionalFormats.Add("1")
var_ConditionalFormat.ForeColor = 255
var_ConditionalFormat.ApplyTo = 0
oComboBox.Columns.Add("Column")
oComboBox.Items.AddItem(0)
oComboBox.Items.AddItem(1)
|
|
424
|
How can I change the foreground color for a particular column
Dim oComboBox as P
Dim var_Column as local
Dim var_Columns as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Columns = oComboBox.Columns
var_Columns.Add("Column 1")
' var_Columns.Add("Column 2").Def(8) = 8439039
var_Column = var_Columns.Add("Column 2")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(8) = 8439039"
var_Columns.Add("Column 3")
|
|
300
|
How can I change the font for entire item
Dim f as P
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
oComboBox.Items.AddItem("default font")
f = OLE.Create("StdFont")
f.Name = "Tahoma"
f.Size = 12
var_Items = oComboBox.Items
' var_Items.ItemFont(var_Items.AddItem("new font")) = f
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ItemFont(AddItem(`new font`)) = f"
|
|
217
|
How can I change the font for all cells in the entire column
Dim f as P
Dim oComboBox as P
Dim var_ConditionalFormat as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
f = OLE.Create("StdFont")
f.Name = "Tahoma"
f.Size = 12
var_ConditionalFormat = oComboBox.ConditionalFormats.Add("1")
var_ConditionalFormat.Font = f
var_ConditionalFormat.ApplyTo = 0
oComboBox.Columns.Add("Column")
oComboBox.Items.AddItem(0)
oComboBox.Items.AddItem(1)
|
|
302
|
How can I change the font for a cell
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
oComboBox.Items.AddItem("std font")
var_Items = oComboBox.Items
' var_Items.CellCaptionFormat(var_Items.AddItem("this <font tahoma;12>is a bit of text with</font> a different font"),0) = 1
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaptionFormat(AddItem(`this <font tahoma;12>is a bit of text with</font> a different font`),0) = 1"
|
|
301
|
How can I change the font for a cell
Dim f as P
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
oComboBox.Items.AddItem("default font")
f = OLE.Create("StdFont")
f.Name = "Tahoma"
f.Size = 12
var_Items = oComboBox.Items
' var_Items.CellFont(var_Items.AddItem("new font"),0) = f
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellFont(AddItem(`new font`),0) = f"
|
|
129
|
How can I change the default caption being displayed in the control's sort bar
Dim oComboBox as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.SortBarVisible = .t.
oComboBox.SortBarCaption = "new caption"
|
|
95
|
How can I change the control's font
Dim oComboBox as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Font.Name = "Tahoma"
oComboBox.Columns.Add("Column")
|
|
13
|
How can I change the column's width
Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.ColumnAutoResize = .f.
' oComboBox.Columns.Add("Column 1").Width = 64
var_Column = oComboBox.Columns.Add("Column 1")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Width = 64"
' oComboBox.Columns.Add("Column 2").Width = 128
var_Column1 = oComboBox.Columns.Add("Column 2")
oComboBox.TemplateDef = "dim var_Column1"
oComboBox.TemplateDef = var_Column1
oComboBox.Template = "var_Column1.Width = 128"
|
|
455
|
How can I change the color, font, bold etc for the items/cells in the same column or for the entire column
Dim oComboBox as P
Dim var_Column as P
Dim var_ConditionalFormat as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.MarkSearchColumn = .f.
var_ConditionalFormat = oComboBox.ConditionalFormats.Add("1")
var_ConditionalFormat.Bold = .t.
var_ConditionalFormat.ForeColor = 255
var_ConditionalFormat.ApplyTo = 1 '1 +
oComboBox.Columns.Add("C1")
var_Column = oComboBox.Columns.Add("C2")
var_Column.HeaderBold = .t.
var_Column.HTMLCaption = "<fgcolor=FF0000>C2"
var_Items = oComboBox.Items
' var_Items.CellCaption(var_Items.AddItem(10),1) = 11
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(10),1) = 11"
' var_Items.CellCaption(var_Items.AddItem(12),1) = 13
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(12),1) = 13"
oComboBox.EndUpdate()
|
|
314
|
How can I change the color for separator / dividers items
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.MarkSearchColumn = .f.
oComboBox.TreeColumnIndex = -1
oComboBox.ScrollBySingleLine = .f.
oComboBox.Columns.Add("C1")
oComboBox.Columns.Add("C2")
var_Items = oComboBox.Items
h = var_Items.AddItem("Cell 1")
' var_Items.CellCaption(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines.`"
' var_Items.CellSingleLine(h,1) = .f.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellSingleLine(h,1) = False"
h = var_Items.AddItem()
' var_Items.ItemDivider(h) = 0
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ItemDivider(h) = 0"
' var_Items.ItemDividerLine(h) = 4
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ItemDividerLine(h) = 4"
' var_Items.ItemDividerLineAlignment(h) = 1
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ItemDividerLineAlignment(h) = 1"
' var_Items.ItemHeight(h) = 6
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ItemHeight(h) = 6"
' var_Items.SelectableItem(h) = .f.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.SelectableItem(h) = False"
h = var_Items.AddItem("Cell 2")
' var_Items.CellCaption(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines.`"
' var_Items.CellSingleLine(h,1) = .f.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellSingleLine(h,1) = False"
|
|
359
|
How can I change the background color or the visual appearance using ebn for a particular column
Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as local
Dim var_Columns as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
var_Columns = oComboBox.Columns
var_Columns.Add("Column 1")
' var_Columns.Add("Column 2").Def(7) = 16777216
var_Column = var_Columns.Add("Column 2")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(7) = 16777216"
' var_Columns.Add("Column 3").Def(7) = 16777471
var_Column1 = var_Columns.Add("Column 3")
oComboBox.TemplateDef = "dim var_Column1"
oComboBox.TemplateDef = var_Column1
oComboBox.Template = "var_Column1.Def(7) = 16777471"
var_Columns.Add("Column 4")
|
|
407
|
How can I change the background color for the filter field in the bottom part of the drop down portion
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.FilterForVisible = .t.
oComboBox.FilterForBackColor = 15790320
oComboBox.IntegralHeight = .t.
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
var_Items.AddItem("Item 3")
var_Items.AddItem("Item 4")
var_Items.AddItem("Item 5")
oComboBox.EndUpdate()
|
|
343
|
How can I change the background color for edit controls
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BackColorEdit = 255
oComboBox.IntegralHeight = .t.
oComboBox.LinesAtRoot = 1
oComboBox.TreeColumnIndex = 1
oComboBox.Columns.Add("Column 1")
oComboBox.Columns.Add("Column 2")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1.1")
' var_Items.CellCaption(h,1) = "Root 1.2"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `Root 1.2`"
' var_Items.CellCaption(var_Items.InsertItem(h,,"Child 1.1"),1) = "Child 1.2"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(InsertItem(h,,`Child 1.1`),1) = `Child 1.2`"
' var_Items.CellCaption(var_Items.InsertItem(h,,"Child 2.1"),1) = "Child 2.2"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(InsertItem(h,,`Child 2.1`),1) = `Child 2.2`"
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.AddItem("Root 2.1")
' var_Items.CellCaption(h,1) = "Root 2.2"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `Root 2.2`"
' var_Items.CellCaption(var_Items.InsertItem(h,,"Child 1.1"),1) = "Child 1.2"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(InsertItem(h,,`Child 1.1`),1) = `Child 1.2`"
oComboBox.Template = "Select(0) = `Root 1.1`" // oComboBox.Select(0) = "Root 1.1"
|
|
216
|
How can I change the background color for all cells in the column
Dim oComboBox as P
Dim var_ConditionalFormat as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_ConditionalFormat = oComboBox.ConditionalFormats.Add("1")
var_ConditionalFormat.BackColor = 255
var_ConditionalFormat.ApplyTo = 0
oComboBox.Columns.Add("Column")
oComboBox.Items.AddItem(0)
oComboBox.Items.AddItem(1)
|
|
358
|
How can I change the background color for a particular column
Dim oComboBox as P
Dim var_Column as local
Dim var_Columns as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Columns = oComboBox.Columns
var_Columns.Add("Column 1")
' var_Columns.Add("Column 2").Def(7) = 8439039
var_Column = var_Columns.Add("Column 2")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(7) = 8439039"
var_Columns.Add("Column 3")
|
|
423
|
How can I change the background color for a particular column
Dim oComboBox as P
Dim var_Column as local
Dim var_Columns as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Columns = oComboBox.Columns
var_Columns.Add("Column 1")
' var_Columns.Add("Column 2").Def(7) = 8439039
var_Column = var_Columns.Add("Column 2")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(7) = 8439039"
var_Columns.Add("Column 3")
|
|
408
|
How can I change the background appearance (ebn) for the filter field in the bottom part of the drop down portion
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oComboBox.FilterForVisible = .t.
oComboBox.FilterForBackColor = 16777216
oComboBox.IntegralHeight = .t.
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
var_Items.AddItem("Item 3")
var_Items.AddItem("Item 4")
var_Items.AddItem("Item 5")
oComboBox.EndUpdate()
|
|
50
|
How can I change the "IsChecked/IsUnchecked" caption in the control's filter bar, when I filter for checked items
Dim oComboBox as P
Dim var_Column as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Column = oComboBox.Columns.Add("Column")
var_Column.DisplayFilterButton = .t.
var_Column.FilterType = 6
var_Column.Filter = 0
oComboBox.Template = "Description(21) = `Check_On`" // oComboBox.Description(21) = "Check_On"
oComboBox.Template = "Description(22) = `Check_Off`" // oComboBox.Description(22) = "Check_Off"
oComboBox.ApplyFilter()
|
|
35
|
How can I change the "Filter For" caption in the column's drop down filter window
Dim oComboBox as P
Dim var_Column as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Columns.Add("Column").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Column")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"
oComboBox.Template = "Description(3) = `new caption`" // oComboBox.Description(3) = "new caption"
|
|
49
|
How can I change the "Checked" caption in the drop down filter window, when I filter for checked items
Dim oComboBox as P
Dim var_Column as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Column = oComboBox.Columns.Add("Column")
var_Column.DisplayFilterButton = .t.
var_Column.FilterType = 6
oComboBox.Template = "Description(19) = `with check on`" // oComboBox.Description(19) = "with check on"
oComboBox.Template = "Description(20) = `with check off`" // oComboBox.Description(20) = "with check off"
|
|
231
|
How can I change at runtime the parent of the item
Dim hC as N
Dim hP as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.LinesAtRoot = -1
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
hP = var_Items.AddItem("Root")
hC = var_Items.AddItem("Child")
var_Items.SetParent(hC,hP)
|
|
57
|
How can I can I select programmatically "Blanks/NonBlanks" option in the column's drop down filter
Dim oComboBox as P
Dim var_Column as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Column = oComboBox.Columns.Add("Column")
var_Column.DisplayFilterButton = .t.
var_Column.FilterType = 1
oComboBox.ApplyFilter()
|
|
61
|
How can I can I programmatically filter the checked items
Dim oComboBox as P
Dim var_Column as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Column = oComboBox.Columns.Add("Column")
' var_Column.Def(0) = .t.
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(0) = True"
var_Column.DisplayFilterButton = .t.
var_Column.FilterType = 6
var_Column.Filter = 0
oComboBox.Items.AddItem(0)
var_Items = oComboBox.Items
' var_Items.CellState(var_Items.AddItem(1),0) = 1
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellState(AddItem(1),0) = 1"
oComboBox.Items.AddItem(2)
oComboBox.ApplyFilter()
|
|
62
|
How can I can I programmatically filter for items with a specified icon assigned
Dim oComboBox as P
Dim var_Column as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oComboBox.Columns.Add("Column")
var_Column.DisplayFilterButton = .t.
var_Column.FilterType = 10
var_Column.Filter = 1
var_Items = oComboBox.Items
' var_Items.CellImage(var_Items.AddItem("Image 1"),0) = 1
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellImage(AddItem(`Image 1`),0) = 1"
' var_Items.CellImage(var_Items.AddItem("Image 1"),0) = 1
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellImage(AddItem(`Image 1`),0) = 1"
' var_Items.CellImage(var_Items.AddItem("Image 2"),0) = 2
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellImage(AddItem(`Image 2`),0) = 2"
' var_Items.CellImage(var_Items.AddItem("Image 3"),0) = 3
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellImage(AddItem(`Image 3`),0) = 3"
oComboBox.ApplyFilter()
|
|
60
|
How can I can I filter programmatically the items based on some numerichal rules
Dim oComboBox as P
Dim var_Column as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Column = oComboBox.Columns.Add("Column")
var_Column.DisplayFilterButton = .t.
var_Column.FilterType = 5
var_Column.Filter = "> 0 <= 1"
oComboBox.Items.AddItem(0)
oComboBox.Items.AddItem(1)
oComboBox.Items.AddItem(2)
oComboBox.ApplyFilter()
|
|
59
|
How can I can I filter programmatically the items based on a range/interval of dates
Dim oComboBox as P
Dim var_Column as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Column = oComboBox.Columns.Add("Column")
var_Column.DisplayFilterButton = .t.
var_Column.DisplayFilterDate = .t.
var_Column.FilterType = 4
var_Column.Filter = "1/1/2001 to 1/1/2002"
oComboBox.Items.AddItem("1/1/2001")
oComboBox.Items.AddItem("2/1/2002")
oComboBox.ApplyFilter()
|
|
58
|
How can I can I filter programmatically given a specified pattern using wild characters like * or
Dim oComboBox as P
Dim var_Column as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Column = oComboBox.Columns.Add("Column")
var_Column.DisplayFilterButton = .t.
var_Column.FilterType = 3
var_Column.Filter = "0*"
oComboBox.Items.AddItem(0)
oComboBox.Items.AddItem("00")
oComboBox.Items.AddItem(1)
oComboBox.Items.AddItem("11")
oComboBox.ApplyFilter()
|
|
555
|
How can I build a "virtual" tree using your control
' Fired before an item is about to be expanded (collapsed).
function BeforeExpandItem as v (Item as OLE::Exontrol.ComboBox.1::HITEM, Cancel as A)
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Items = oComboBox.Items
' var_Items.ItemHasChildren(var_Items.InsertItem(Item,,"new")) = .t.
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ItemHasChildren(InsertItem(Item,,`new`)) = True"
end function
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
oComboBox.Style = 1
oComboBox.Columns.Add("Def")
var_Items = oComboBox.Items
var_Items.AddItem("Item 1")
' var_Items.ItemHasChildren(var_Items.AddItem("Item 2")) = .t.
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.ItemHasChildren(AddItem(`Item 2`)) = True"
var_Items.AddItem("Item 3")
oComboBox.Value = "Item 2"
oComboBox.EndUpdate()
|
|
363
|
How can I bold the items that contains data or those who displays empty strings
Dim h as N
Dim hC as N
Dim oComboBox as P
Dim var_ConditionalFormat as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.ConditionalFormats.Add("not len(%1)=0").Bold = .t.
var_ConditionalFormat = oComboBox.ConditionalFormats.Add("not len(%1)=0")
oComboBox.TemplateDef = "dim var_ConditionalFormat"
oComboBox.TemplateDef = var_ConditionalFormat
oComboBox.Template = "var_ConditionalFormat.Bold = True"
oComboBox.Columns.Add("C1")
oComboBox.Columns.Add("C2")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Child 1")
hC = var_Items.InsertItem(h,,"Child 2")
' var_Items.CellCaption(hC,1) = "1"
oComboBox.TemplateDef = "dim var_Items,hC"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = hC
oComboBox.Template = "var_Items.CellCaption(hC,1) = `1`"
var_Items.InsertItem(h,,"Child 3")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
|
|
211
|
How can I bold the entire column
Dim oComboBox as P
Dim var_ConditionalFormat as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_ConditionalFormat = oComboBox.ConditionalFormats.Add("1")
var_ConditionalFormat.Bold = .t.
var_ConditionalFormat.ApplyTo = 0
oComboBox.Columns.Add("Column")
oComboBox.Items.AddItem(0)
oComboBox.Items.AddItem(1)
|
|
25
|
How can I bold only a portion of the column's header
Dim oComboBox as P
Dim var_Column as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Columns.Add("Column 1").HTMLCaption = "<b>Col</b>umn 1"
var_Column = oComboBox.Columns.Add("Column 1")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.HTMLCaption = `<b>Col</b>umn 1`"
|
|
269
|
How can I associate an extra data to a cell
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("C1")
oComboBox.Columns.Add("C2")
var_Items = oComboBox.Items
h = var_Items.AddItem("Cell 1")
' var_Items.CellCaption(h,1) = "Cell 2"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `Cell 2`"
' var_Items.CellData(h,1) = "your extra data"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellData(h,1) = `your extra data`"
|
|
280
|
How can I assign multiple icons/pictures to a cell
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root <img>1</img> 1, <img>2</img>, ... and so on ")
' var_Items.CellCaptionFormat(h,0) = 1
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaptionFormat(h,0) = 1"
|
|
279
|
How can I assign multiple icons/pictures to a cell
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
' var_Items.CellImages(h,0) = "1,2,3"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellImages(h,0) = `1,2,3`"
|
|
282
|
How can I assign multiple icon/picture to a cell
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Template = "HTMLPicture(`p1`) = `c:\exontrol\images\zipdisk.gif`" // oComboBox.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif"
oComboBox.Template = "HTMLPicture(`p2`) = `c:\exontrol\images\auction.gif`" // oComboBox.HTMLPicture("p2") = "c:\exontrol\images\auction.gif"
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("text <img>p1</img> another picture <img>p2</img> and so on")
' var_Items.CellCaptionFormat(h,0) = 1
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaptionFormat(h,0) = 1"
' var_Items.CellPicture(h,0) = oComboBox.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellPicture(h,0) = Me.ExecuteTemplate(`loadpicture(``c:\exontrol\images\colorize.gif``)`)"
' var_Items.ItemHeight(h) = 48
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ItemHeight(h) = 48"
var_Items.AddItem("Root 2")
|
|
14
|
How can I assign checkboxes for the entire column
Dim oComboBox as P
Dim var_Column as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Columns.Add("Column 1").Def(0) = .t.
var_Column = oComboBox.Columns.Add("Column 1")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(0) = True"
oComboBox.Items.AddItem(0)
oComboBox.Items.AddItem(1)
oComboBox.Items.AddItem(2)
|
|
281
|
How can I assign an icon/picture to a cell
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
' var_Items.CellPicture(h,0) = oComboBox.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellPicture(h,0) = Me.ExecuteTemplate(`loadpicture(``c:\exontrol\images\zipdisk.gif``)`)"
' var_Items.ItemHeight(h) = 48
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ItemHeight(h) = 48"
var_Items.AddItem("Root 2")
|
|
278
|
How can I assign an icon/picture to a cell
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
h = var_Items.AddItem("Root 1")
' var_Items.CellImage(h,0) = 1
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellImage(h,0) = 1"
' var_Items.CellImage(var_Items.InsertItem(h,,"Child 1"),0) = 2
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellImage(InsertItem(h,,`Child 1`),0) = 2"
' var_Items.CellImage(var_Items.InsertItem(h,,"Child 2"),0) = 3
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellImage(InsertItem(h,,`Child 2`),0) = 3"
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
|
|
270
|
How can I assign a tooltip to a cell
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("C1")
oComboBox.Columns.Add("C2")
var_Items = oComboBox.Items
h = var_Items.AddItem("Cell 1")
' var_Items.CellCaption(h,1) = "tooltip"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `tooltip`"
' var_Items.CellToolTip(h,1) = "This is bit of text that's shown when the user hovers the cell"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellToolTip(h,1) = `This is bit of text that's shown when the user hovers the cell`"
|
|
274
|
How can I assign a radio button to a cell
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.MarkSearchColumn = .f.
oComboBox.SelBackColor = 8454143
oComboBox.SelForeColor = 0
oComboBox.Columns.Add("C1")
oComboBox.Columns.Add("C2")
oComboBox.Columns.Add("C3")
var_Items = oComboBox.Items
h = var_Items.AddItem("Cell 1")
' var_Items.CellCaption(h,1) = "Radio 1"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `Radio 1`"
' var_Items.CellHasRadioButton(h,1) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellHasRadioButton(h,1) = True"
' var_Items.CellRadioGroup(h,1) = 1234
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellRadioGroup(h,1) = 1234"
' var_Items.CellCaption(h,2) = "Radio 2"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,2) = `Radio 2`"
' var_Items.CellHasRadioButton(h,2) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellHasRadioButton(h,2) = True"
' var_Items.CellRadioGroup(h,2) = 1234
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellRadioGroup(h,2) = 1234"
' var_Items.CellState(h,1) = 1
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellState(h,1) = 1"
|
|
16
|
How can I assign a different background color for the entire column
Dim oComboBox as P
Dim var_Column as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.MarkSearchColumn = .f.
' oComboBox.Columns.Add("Column 1").Def(4) = 255
var_Column = oComboBox.Columns.Add("Column 1")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(4) = 255"
oComboBox.Columns.Add("Column 2")
oComboBox.Items.AddItem(0)
oComboBox.Items.AddItem(1)
oComboBox.Items.AddItem(2)
|
|
272
|
How can I assign a checkbox to a cell
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("C1")
oComboBox.Columns.Add("C2")
var_Items = oComboBox.Items
h = var_Items.AddItem("Cell 1")
' var_Items.CellCaption(h,1) = "Check Box"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `Check Box`"
' var_Items.CellHasCheckBox(h,1) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellHasCheckBox(h,1) = True"
|
|
15
|
How can I assign a check box for a cell
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Column 1")
var_Items = oComboBox.Items
var_Items.AddItem(0)
' var_Items.CellHasCheckBox(var_Items.AddItem(1),0) = .t.
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellHasCheckBox(AddItem(1),0) = True"
var_Items.AddItem(2)
|
|
30
|
How can I apply an strikeout font only a portion of the column's header
Dim oComboBox as P
Dim var_Column as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Columns.Add("Column 1").HTMLCaption = "<s>Col</s>umn 1"
var_Column = oComboBox.Columns.Add("Column 1")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.HTMLCaption = `<s>Col</s>umn 1`"
|
|
27
|
How can I apply an italic font only a portion of the column's header
Dim oComboBox as P
Dim var_Column as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Columns.Add("Column 1").HTMLCaption = "<i>Col</i>umn 1"
var_Column = oComboBox.Columns.Add("Column 1")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.HTMLCaption = `<i>Col</i>umn 1`"
|
|
353
|
How can I align the text/caption on the scroll bar
Dim oComboBox as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Template = "ScrollPartCaption(1,512) = `left`" // oComboBox.ScrollPartCaption(1,512) = "left"
oComboBox.Template = "ScrollPartCaptionAlignment(1,512) = 0" // oComboBox.ScrollPartCaptionAlignment(1,512) = 0
oComboBox.Template = "ScrollPartCaption(1,128) = `right`" // oComboBox.ScrollPartCaption(1,128) = "right"
oComboBox.Template = "ScrollPartCaptionAlignment(1,128) = 2" // oComboBox.ScrollPartCaptionAlignment(1,128) = 2
oComboBox.ColumnAutoResize = .f.
oComboBox.Columns.Add(1)
oComboBox.Columns.Add(2)
oComboBox.Columns.Add(3)
oComboBox.Columns.Add(4)
oComboBox.Columns.Add(5)
oComboBox.Columns.Add(6)
|
|
183
|
How can I align the icon in the column's header in the center
Dim oComboBox as P
Dim var_Column as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oComboBox.Columns.Add("")
var_Column.HeaderImage = 1
var_Column.HeaderImageAlignment = 1
|
|
177
|
How can I align the column to the right, and its caption too
Dim oComboBox as P
Dim var_Column as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Column = oComboBox.Columns.Add("Column")
var_Column.Alignment = 2
var_Column.HeaderAlignment = 2
oComboBox.Items.AddItem(0)
oComboBox.Items.AddItem(1)
|
|
176
|
How can I align the column to the right
Dim oComboBox as P
Dim var_Column as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
' oComboBox.Columns.Add("Column").Alignment = 2
var_Column = oComboBox.Columns.Add("Column")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Alignment = 2"
oComboBox.Items.AddItem(0)
oComboBox.Items.AddItem(1)
|
|
304
|
How can I align the cell to the left, center or to the right
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.TreeColumnIndex = -1
oComboBox.DrawGridLines = -2
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
' var_Items.CellHAlignment(var_Items.AddItem("left"),0) = 0
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellHAlignment(AddItem(`left`),0) = 0"
' var_Items.CellHAlignment(var_Items.AddItem("center"),0) = 1
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellHAlignment(AddItem(`center`),0) = 1"
' var_Items.CellHAlignment(var_Items.AddItem("right"),0) = 2
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellHAlignment(AddItem(`right`),0) = 2"
|
|
135
|
How can I add several columns to control's sort bar
Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.SortBarVisible = .t.
oComboBox.SortBarColumnWidth = 48
' oComboBox.Columns.Add("C1").SortOrder = 1
var_Column = oComboBox.Columns.Add("C1")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.SortOrder = 1"
' oComboBox.Columns.Add("C2").SortOrder = 2
var_Column1 = oComboBox.Columns.Add("C2")
oComboBox.TemplateDef = "dim var_Column1"
oComboBox.TemplateDef = var_Column1
oComboBox.Template = "var_Column1.SortOrder = 2"
|
|
313
|
How can I add separator - dividers items
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.MarkSearchColumn = .f.
oComboBox.TreeColumnIndex = -1
oComboBox.ScrollBySingleLine = .f.
oComboBox.Columns.Add("C1")
oComboBox.Columns.Add("C2")
var_Items = oComboBox.Items
h = var_Items.AddItem("Cell 1")
' var_Items.CellCaption(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines.`"
' var_Items.CellSingleLine(h,1) = .f.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellSingleLine(h,1) = False"
h = var_Items.AddItem()
' var_Items.ItemDivider(h) = 0
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ItemDivider(h) = 0"
' var_Items.ItemDividerLine(h) = 4
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ItemDividerLine(h) = 4"
' var_Items.ItemDividerLineAlignment(h) = 1
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ItemDividerLineAlignment(h) = 1"
' var_Items.ItemHeight(h) = 6
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ItemHeight(h) = 6"
' var_Items.SelectableItem(h) = .f.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.SelectableItem(h) = False"
h = var_Items.AddItem("Cell 2")
' var_Items.CellCaption(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines.`"
' var_Items.CellSingleLine(h,1) = .f.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellSingleLine(h,1) = False"
|
|
226
|
How can I add or insert child items
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.LinesAtRoot = -1
oComboBox.Columns.Add("C1")
oComboBox.Columns.Add("C2")
var_Items = oComboBox.Items
h = var_Items.AddItem("Cell 1")
' var_Items.CellCaption(h,1) = "Cell 2"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `Cell 2`"
' var_Items.CellCaption(var_Items.InsertItem(h,,"Cell 3"),1) = "Cell 4"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(InsertItem(h,,`Cell 3`),1) = `Cell 4`"
' var_Items.CellCaption(var_Items.InsertItem(h,,"Cell 5"),1) = "Cell 6"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(InsertItem(h,,`Cell 5`),1) = `Cell 6`"
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
|
|
223
|
How can I add or insert an item
Dim oComboBox as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("Default")
oComboBox.Items.AddItem("new item")
|
|
224
|
How can I add or insert an item
Dim h as N
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("C1")
oComboBox.Columns.Add("C2")
var_Items = oComboBox.Items
' var_Items.CellCaption(var_Items.AddItem("Cell 1"),1) = "Cell 2"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(AddItem(`Cell 1`),1) = `Cell 2`"
h = var_Items.AddItem("Cell 3")
' var_Items.CellCaption(h,1) = "Cell 4"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `Cell 4`"
|
|
225
|
How can I add or insert a child item
Dim oComboBox as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.LinesAtRoot = -1
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
var_Items.InsertItem(var_Items.AddItem("root"),,"child")
|
|
464
|
How can I add or change the padding (spaces) for captions in the control's header
Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.Columns.Add("Padding-Left").Def(52) = 18
var_Column = oComboBox.Columns.Add("Padding-Left")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(52) = 18"
var_Column1 = oComboBox.Columns.Add("Padding-Right")
' var_Column1.Def(53) = 18
oComboBox.TemplateDef = "dim var_Column1"
oComboBox.TemplateDef = var_Column1
oComboBox.Template = "var_Column1.Def(53) = 18"
var_Column1.HeaderAlignment = 2
oComboBox.EndUpdate()
|
|
3
|
How can I add multiple columns
Dim oComboBox as P
Dim var_Columns as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
var_Columns = oComboBox.Columns
var_Columns.Add("Column 1")
var_Columns.Add("Column 2")
|
|
465
|
How can I add a vertical padding
Dim oComboBox as P
Dim var_Column as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.DrawGridLines = -1
var_Column = oComboBox.Columns.Add("Padding")
' var_Column.Def(0) = .t.
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(0) = True"
' var_Column.Def(16) = .f.
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(16) = False"
' var_Column.Def(48) = 6
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(48) = 6"
' var_Column.Def(49) = 6
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(49) = 6"
' var_Column.Def(50) = 6
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(50) = 6"
' var_Column.Def(51) = 6
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(51) = 6"
var_Items = oComboBox.Items
var_Items.AddItem("padding")
var_Items.AddItem("padding")
oComboBox.EndUpdate()
|
|
1
|
How can I add a new column
Dim oComboBox as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("ColumnName")
|
|
454
|
How can I add a horizontal scroll bar
Dim oComboBox as P
Dim var_Column as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.ScrollBySingleLine = .t.
oComboBox.ColumnAutoResize = .f.
oComboBox.BackColorAlternate = 15790320
var_Column = oComboBox.Columns.Add("Default")
var_Column.Width = 512
' var_Column.Def(16) = .f.
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Def(16) = False"
var_Items = oComboBox.Items
var_Items.AddItem("Exontrol is devoted to create innovative user interface components for Windows applications, on COM or .NET platforms, since 1999. \"eXontrol\" comes from e(s)pecial (c)ontrol, where sc makes the X. We are a vendor not a reseller, and this is the single site where you can try or buy our products. If you are tired of looking for \"powerful\" components now it's time to show you real components. No registration required, no nag screens, no limitations, unlimited evaluation time.")
var_Items.AddItem("A combo box is a commonly-used GUI tool. It is a combination of a drop-down list or list box and a single-line textbox, allowing the user either to type a value directly into the control or choose from the list of existing options.")
oComboBox.EndUpdate()
|
|
221
|
How can I access the properties of a column
Dim oComboBox as P
Dim var_Column as local
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Columns.Add("A")
' oComboBox.Columns.Item("A").HeaderBold = .t.
var_Column = oComboBox.Columns.Item("A")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.HeaderBold = True"
|
|
595
|
Highlight the parent items
Dim h as N
Dim hR as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Columns as P
Dim var_ConditionalFormat as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.ConditionalFormats.Add("%CC0").ForeColor = 255
var_ConditionalFormat = oComboBox.ConditionalFormats.Add("%CC0")
oComboBox.TemplateDef = "dim var_ConditionalFormat"
oComboBox.TemplateDef = var_ConditionalFormat
oComboBox.Template = "var_ConditionalFormat.ForeColor = 255"
oComboBox.HeaderAppearance = 4
oComboBox.HeaderHeight = 24
oComboBox.LinesAtRoot = -1
var_Columns = oComboBox.Columns
' var_Columns.Add("Item").Width = 16
var_Column = var_Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Width = 16"
var_Columns.Add("Desc")
var_Items = oComboBox.Items
hR = var_Items.AddItem("Root")
' var_Items.CellCaption(hR,1) = "The root directory /"
oComboBox.TemplateDef = "dim var_Items,hR"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = hR
oComboBox.Template = "var_Items.CellCaption(hR,1) = `The root directory /`"
h = var_Items.InsertItem(hR,,"Home")
' var_Items.CellCaption(h,1) = "The home directory with user directories Alice and Bob"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `The home directory with user directories Alice and Bob`"
var_Items.InsertItem(h,,"Alice")
var_Items.InsertItem(h,,"Bob")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.InsertItem(hR,,"Etc")
' var_Items.CellCaption(h,1) = "The etc directory with one configuration file"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `The etc directory with one configuration file`"
h = var_Items.InsertItem(h,,"nginx.conf")
' var_Items.CellCaption(var_Items.InsertItem(hR,,"Var"),1) = "The var directory"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(InsertItem(hR,,`Var`),1) = `The var directory`"
' var_Items.ExpandItem(hR) = .t.
oComboBox.TemplateDef = "dim var_Items,hR"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = hR
oComboBox.Template = "var_Items.ExpandItem(hR) = True"
oComboBox.EndUpdate()
|
|
596
|
Highlight the leaf items
Dim h as N
Dim hR as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Columns as P
Dim var_ConditionalFormat as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.ConditionalFormats.Add("%CC0=0").ForeColor = 8421504
var_ConditionalFormat = oComboBox.ConditionalFormats.Add("%CC0=0")
oComboBox.TemplateDef = "dim var_ConditionalFormat"
oComboBox.TemplateDef = var_ConditionalFormat
oComboBox.Template = "var_ConditionalFormat.ForeColor = 8421504"
oComboBox.HeaderAppearance = 4
oComboBox.HeaderHeight = 24
oComboBox.LinesAtRoot = -1
var_Columns = oComboBox.Columns
' var_Columns.Add("Item").Width = 16
var_Column = var_Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Width = 16"
var_Columns.Add("Desc")
var_Items = oComboBox.Items
hR = var_Items.AddItem("Root")
' var_Items.CellCaption(hR,1) = "The root directory /"
oComboBox.TemplateDef = "dim var_Items,hR"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = hR
oComboBox.Template = "var_Items.CellCaption(hR,1) = `The root directory /`"
h = var_Items.InsertItem(hR,,"Home")
' var_Items.CellCaption(h,1) = "The home directory with user directories Alice and Bob"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `The home directory with user directories Alice and Bob`"
var_Items.InsertItem(h,,"Alice")
var_Items.InsertItem(h,,"Bob")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.InsertItem(hR,,"Etc")
' var_Items.CellCaption(h,1) = "The etc directory with one configuration file"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `The etc directory with one configuration file`"
h = var_Items.InsertItem(h,,"nginx.conf")
' var_Items.CellCaption(var_Items.InsertItem(hR,,"Var"),1) = "The var directory"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(InsertItem(hR,,`Var`),1) = `The var directory`"
' var_Items.ExpandItem(hR) = .t.
oComboBox.TemplateDef = "dim var_Items,hR"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = hR
oComboBox.Template = "var_Items.ExpandItem(hR) = True"
oComboBox.EndUpdate()
|
|
594
|
Highlight the item being expanded or collapsed
Dim h as N
Dim hR as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Columns as P
Dim var_ConditionalFormat as local
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
' oComboBox.ConditionalFormats.Add("%CX0").Bold = .t.
var_ConditionalFormat = oComboBox.ConditionalFormats.Add("%CX0")
oComboBox.TemplateDef = "dim var_ConditionalFormat"
oComboBox.TemplateDef = var_ConditionalFormat
oComboBox.Template = "var_ConditionalFormat.Bold = True"
oComboBox.HeaderAppearance = 4
oComboBox.HeaderHeight = 24
oComboBox.LinesAtRoot = -1
var_Columns = oComboBox.Columns
' var_Columns.Add("Item").Width = 16
var_Column = var_Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.Width = 16"
var_Columns.Add("Desc")
var_Items = oComboBox.Items
hR = var_Items.AddItem("Root")
' var_Items.CellCaption(hR,1) = "The root directory /"
oComboBox.TemplateDef = "dim var_Items,hR"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = hR
oComboBox.Template = "var_Items.CellCaption(hR,1) = `The root directory /`"
h = var_Items.InsertItem(hR,,"Home")
' var_Items.CellCaption(h,1) = "The home directory with user directories Alice and Bob"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `The home directory with user directories Alice and Bob`"
var_Items.InsertItem(h,,"Alice")
var_Items.InsertItem(h,,"Bob")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.InsertItem(hR,,"Etc")
' var_Items.CellCaption(h,1) = "The etc directory with one configuration file"
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.CellCaption(h,1) = `The etc directory with one configuration file`"
h = var_Items.InsertItem(h,,"nginx.conf")
' var_Items.CellCaption(var_Items.InsertItem(hR,,"Var"),1) = "The var directory"
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellCaption(InsertItem(hR,,`Var`),1) = `The var directory`"
' var_Items.ExpandItem(hR) = .t.
oComboBox.TemplateDef = "dim var_Items,hR"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = hR
oComboBox.Template = "var_Items.ExpandItem(hR) = True"
oComboBox.EndUpdate()
|
|
589
|
Force hover-all feature
Dim oComboBox as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Template = "Background(500) = -1" // oComboBox.Background(500) = -1
|
|
515
|
FilterBarCaption Predefined Keywords
' Fired after an item is expanded (collapsed).
function AfterExpandItem as v (Item as OLE::Exontrol.ComboBox.1::HITEM)
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.Refresh()
end function
Dim h as N
Dim oComboBox as P
Dim var_Column as local
Dim var_Column1 as P
Dim var_Column2 as P
Dim var_Column3 as P
Dim var_Items as P
oComboBox = topparent:CONTROL_ACTIVEX1.activex
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
' oComboBox.Columns.Add("Item").DisplayFilterButton = .t.
var_Column = oComboBox.Columns.Add("Item")
oComboBox.TemplateDef = "dim var_Column"
oComboBox.TemplateDef = var_Column
oComboBox.Template = "var_Column.DisplayFilterButton = True"
var_Column1 = oComboBox.Columns.Add("Check")
' var_Column1.Def(0) = .t.
oComboBox.TemplateDef = "dim var_Column1"
oComboBox.TemplateDef = var_Column1
oComboBox.Template = "var_Column1.Def(0) = True"
var_Column1.DisplayFilterButton = .t.
var_Column1.DisplayFilterPattern = .f.
var_Column1.FilterType = 6
var_Column2 = oComboBox.Columns.Add("Pos")
var_Column2.AllowSizing = .f.
var_Column2.AllowSort = .f.
var_Column2.Width = 32
var_Column2.FormatColumn = "1 apos ``"
var_Column2.Position = 0
var_Items = oComboBox.Items
var_Items.AddItem("Item A")
h = var_Items.AddItem("Item B")
' var_Items.CellState(var_Items.InsertItem(h,,"Sub-Item B1"),1) = 1
oComboBox.TemplateDef = "dim var_Items"
oComboBox.TemplateDef = var_Items
oComboBox.Template = "var_Items.CellState(InsertItem(h,,`Sub-Item B1`),1) = 1"
var_Items.InsertItem(h,,"Sub-Item B2")
' var_Items.ExpandItem(h) = .t.
oComboBox.TemplateDef = "dim var_Items,h"
oComboBox.TemplateDef = var_Items
oComboBox.TemplateDef = h
oComboBox.Template = "var_Items.ExpandItem(h) = True"
var_Items.AddItem("Item C")
oComboBox.FilterInclude = 1
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.FilterBarCaption = "`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</i></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>: ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</i></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=808080>` + promptpattern + `</fgcolor>`+ `<br><fgcolor=0000FF><i>leafitemcount</i></fgcolor>: <fgcolor=808080>` + leafitemcount + `</fgcolor>`"
oComboBox.FilterBarPromptPattern = "B"
oComboBox.FilterBarPromptVisible = 7 'exFilterBarCaptionVisible + exFilterBarVisible + exFilterBarPromptVisible
var_Column3 = oComboBox.Columns.Item(0)
var_Column3.FilterType = 240
var_Column3.Filter = "Item A|Item B"
oComboBox.ApplyFilter()
oComboBox.EndUpdate()
|